28 POKE53280,15:POKE53281,1:POKE646,15:POKE53272,21 30 PRINT"[147][144] [213][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][201]" 32 PRINT" [221][176][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][174][221]" 34 PRINT" [221][221] [146][144][221][221]" 36 PRINT" [221][221] [146][144][221][221]" 38 PRINT" [221][221] [146] M A C  [146][144][221][221]" 40 PRINT" [221][221] [146][144][221][221]" 42 PRINT" [221][221] M O N T H L Y [146][144][221][221]" 44 PRINT" [221][221] [146][144][221][221]" 46 PRINT" [221][221] A P P O I N T M E N T [146][144][221][221]" 48 PRINT" [221][221] [146][144][221][221]" 50 PRINT" [221][221] C A L E N D A R [146][144][221][221]" 52 PRINT" [221][221] [146][144][221][221]" 54 PRINT" [221][221] (VERSION 2.0) [146][144][221][221]" 56 PRINT" [221][221] [146][144][221][221]" 58 PRINT" [221][221] [146][144][221][221]" 60 PRINT" [221][221] [146][144][221][221]" 62 PRINT" [221][173][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][189][221]" 64 PRINT" [221] C O M M O D O R E 6 4 [221]" 66 PRINT" [202][195][195][178][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][178][195][195][203]" 68 PRINT" [176][195][195][195][195][195][177][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][177][195][195][195][195][195][174] 70 [153]" (null) WAITSTOP(null)" 72 [153]" (null) PRESS LETTER I FOR INSTRUCTIONS WAITSTOP(null)" 74 [153]" (null) ( PRESS RUN/STOP KEY TO QUIT) WAITSTOP(null)" 76 [153]" (null) PRESS ANY OTHER KEY FOR PROGRAM WAITSTOP(null)" 78 [153]" /LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENEXP"; 80 [161]KEY$:[139]KEY$[178]""[167]80 85 [139]KEY$[178]"I"[167][151]53280,6:[137]100 90 [137]340 100 [143] *** PROGRAM INSTRUCTIONS *** 105 [153]"LOAD MAC INSTRUCTIONS WAIT"; 110 [153]"STOP ON ENTERING THE PROGRAM, PRESS THE" 115 [153]" PROPER KEY (1-9 OR A-C)WAITSTOP TO SELECT THE" 120 [153]" DESIRED MONTH. THEN ENTER THE FOUR " 125 [153]" DIGITS OF THE YEAR. MAC WILL THEN " 130 [153]" DISPLAY THE REQUESTED MONTH. YOU MAY " 135 [153]" NOW CHOOSE THE FOLLOWING OPTIONS: " 140 [153]"  A) VIEW ANOTHER MONTH. WAITSTOP " 145 [153]" PRESS A. THEN REPEAT MONTH AND YEAR " 150 [153]" SELECTION AS BEFORE. " 155 [153]"  M) MEMO OPTIONS WAITSTOP " 160 [153]" PRESS M. THEN SELECT (W) TO WRITE A " 165 [153]" NEW MEMO, (V) TO VIEW/EDIT A CURRENT " 170 [153]" MEMO, OR (E) TO ESCAPE TO MAIN MENU. " 175 [153]"  W) WRITE A NEW MEMO. WAITSTOP " 180 [153]" MAC PERMITS THE CREATION OF A MONTHLY" 185 [153]" MEMO. A MEMO IS WRITTEN ONLY ON THE " 190 [153]" MONTH CURRENTLY VIEWED AND ONLY ONE " 195 [153]" MEMO CAN EXIST FOR EACH MONTH. TO " 200 [153]" VIEW A SAMPLE MEMO AND ADDITIONAL " 205 [153]" INSTRUCTIONS, SELECT JANUARY 1989 FOR" 210 [153]" THE MONTH AND YEAR, SELECT (M) FROM " 212 [153]"  PRESS RETURN TO CONTINUE WAITSTOP"; 213 [161]KEY$:[139]KEY$[178]""[167]213 215 [153]"LOAD THE MAIN MENU AND (V) FROM THE MEMO " 220 [153]" OPTION. " 225 [153]"  V) VIEW/EDIT A MEMO WAITSTOP " 230 [153]" THIS OPTION ALLOWS YOU TO VIEW & MAKE" 235 [153]" CHANGES TO THE MEMO CURRENTLY IN FILE" 240 [153]" FOR THE MONTH CHOSEN. THE UPDATED " 245 [153]" MEMO IS THEN SAVED, REPLACING THE " 250 [153]" ORIGINAL. " 255 [153]"  P) PRINT OPTIONS WAITSTOP " 260 [153]" MAC WILL ALSO PRINT A HARDCOPY OF " 265 [153]" THE CALENDAR AND MEMO FOR THE MONTH" 270 [153]" BEING VIEWED. AFTER PRESSING P, THE " 275 [153]" PROGRAM CHECKS TO SEE IF THE PRINTER " 280 [153]" IS READY BEFORE PROCEEDING. IF THE " 285 [153]" PRINTER IS NOT READY, YOU HAVE THE " 290 [153]" OPTION OF ESCAPING BACK TO THE MAIN " 295 [153]" MENU AND ABORTING THE PRINTOUT OR " 300 [153]" MAKING THE PRINTER READY AND TRYING" 305 [153]" AGAIN. NOTE THAT THIS HARDCOPY IS " 310 [153]" FORMATTED FOR STANDARD 8.5X11 PAPER." 315 [153]"  Q) QUIT WAITSTOP" 320 [153]" PRESSING Q CLEARS THE SCREEN AND " 325 [153]" RELOADS THE DISK MENU. " 330 [153]"  PRESS RETURN FOR PROGRAM WAITSTOP"; 335 [161]KEY$:[139]KEY$[178]""[167]335 340 P$[178]"MAC" 345 [153]"LOADLOAD"[199](34)P$[199](34)",8" 350 [153]"RUN" 355 [151]198,3:[151]631,19:[151]632,13:[151]633,13 360 [162] 365 [128]